| CheckSame method |
Applies to
TTestCase
Declaration
Procedure CheckSame(expected, actual :IUnknown; msg :string = '');
Implementation
procedure TTestCase.CheckSame(expected, actual: IUnknown; msg :string = '');
begin
if (expected = actual) then
exit;
FailNotSame(PtrToStr(Pointer(expected)), PtrToStr(Pointer(actual)), msg, CallerAddr);
End; |
|
|